From 2a0a090a921f226e1df3137c62c36a022b4ea4fc Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Tue, 25 May 1993 19:02:08 +0000 Subject: [PATCH] (dired-compress-file): Test the return value of dired-check-process properly. --- lisp/dired-aux.el | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/lisp/dired-aux.el b/lisp/dired-aux.el index 3cff0fc3ea7..f8503f2d07f 100644 --- a/lisp/dired-aux.el +++ b/lisp/dired-aux.el @@ -487,12 +487,12 @@ and use this command with a prefix argument (the value does not matter)." ((file-symlink-p file) nil) ((string-match "\\.Z$" file) - (if (dired-check-process (concat "Uncompressing " file) - "uncompress" file) + (if (not (dired-check-process (concat "Uncompressing " file) + "uncompress" file)) (substring file 0 -2))) (t - (if (dired-check-process (concat "Compressing " file) - "compress" "-f" file) + (if (not (dired-check-process (concat "Compressing " file) + "compress" "-f" file)) (concat name ".Z")))))) (defun dired-mark-confirm (op-symbol arg) -- 2.30.2